home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d7 / apcp38.arc / #####.ASP next >
Text File  |  1991-01-09  |  1KB  |  49 lines

  1. log close
  2. init n9 07
  3. init n8 07
  4. isfile "APCP.STR"
  5. if not success
  6. clear
  7. box 09 10 15 69 n9
  8. atsay 11 15 n8 "The APCP.STR control file was not found.  Entry to"
  9. atsay 12 15 n8 "APCP must be from the dialing directory.  Read the"
  10. atsay 13 15 n8 "INSTALLATION and OPERATION sections of [APCP.DOC]."
  11. locate 17 00
  12. alarm
  13. exit
  14. endif
  15. fopeni "APCP.STR" text
  16. fgets s1
  17. fclosei
  18. box   08 38 17 63 n9
  19. atsay 10 42 n8 "  - APCP Request"
  20. atsay 12 42 n8 "C - New CITY"
  21. atsay 13 42 n8 "L - Delete LOGS"
  22. atsay 14 42 n8 "E - New EBBS/NODE"
  23. atsay 15 42 n8 "Q - Terminate APCP"
  24. atget 10 42 n8 01 s0
  25. clear
  26. switch s0
  27. case "C"
  28. substr s1 s1 00 05
  29. execute s1
  30. endcase
  31. case "L"
  32. dos "ERASE *."
  33. execute #####
  34. endcase
  35. case "E"
  36. substr s2 s1 05 05
  37. execute s2
  38. endcase
  39. endswitch
  40. box 00 00 02 79 n9
  41. atsay 01 02 n8 "APCP:  Terminating ... Telenet disconnecting ..."
  42. hangup
  43. atsay 01 02 n8 "APCP:  Terminated ... Telenet disconne"
  44. atsay 01 40 n8 "cted ... now in Procomm Plus ... CIAO."   
  45. locate 05 00
  46. exit
  47. return
  48. 
  49.